home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / MATHS / ARCAUT / Automatons / HPP-Gas < prev    next >
Text File  |  1991-07-27  |  892b  |  33 lines
  1. AUTOMATON*
  2.  
  3.   HPP-Gas
  4.  
  5.   This Margolus neighbourhood automaton simulates a gas cloud. The particles
  6.   travel along diagonals; number & momentum are preserved in collisions. A
  7.   simple alteration allows the introduction of walls & many coloured gasses.
  8.   Experiments can then be performed demonstrating the self diffusion which
  9.   takes place in a gas, constantly mixing it, & diffusion, whereby a gas will
  10.   fill the container in which it is placed; because this is a very simple
  11.   model, diffusion of the gas into a vacuum works best when the container is
  12.   of an irregular shape. Compare with 'TM-Gas'.
  13.  
  14. INITIALISATION*
  15.  
  16.   10DEF PROCdo
  17.   20*SetEval wrap on
  18.   30*SetEval neig margolus
  19.   40ENDPROC
  20.  
  21. SCREEN*
  22.  
  23.   10DEF PROCdo
  24.   20PROCsoup(255,1,.1)
  25.   30ENDPROC
  26.  
  27. CODE*
  28.  
  29. ( READ_NEIG
  30.   CELL OPP = IF (CW CCW = IF (CELL CW <> IF (CW ==)))
  31.                                             OPP ==    )
  32.  
  33. END*